home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / tex31 / texsrc.lzh / TEXSRC.LZH / tex2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-28  |  30.0 KB  |  1,625 lines
  1. #define EXTERN extern
  2. #include "texd.h"
  3.  
  4. void zshowbox ( p ) 
  5. halfword p ; 
  6. {showbox_regmem 
  7.   depththreshold = eqtb [ 6188 ] .cint ; 
  8.   breadthmax = eqtb [ 6187 ] .cint ; 
  9.   if ( breadthmax <= 0 ) 
  10.   breadthmax = 5 ; 
  11.   if ( poolptr + depththreshold >= poolsize ) 
  12.   depththreshold = poolsize - poolptr - 1 ; 
  13.   shownodelist ( p ) ; 
  14.   println () ; 
  15. } 
  16. void zdeletetokenref ( p ) 
  17. halfword p ; 
  18. {deletetokenref_regmem 
  19.   if ( mem [ p ] .hh .v.LH == 0 ) 
  20.   flushlist ( p ) ; 
  21.   else decr ( mem [ p ] .hh .v.LH ) ; 
  22. } 
  23. void zdeleteglueref ( p ) 
  24. halfword p ; 
  25. {deleteglueref_regmem 
  26.   if ( mem [ p ] .hh .v.RH == 0 ) 
  27.   freenode ( p , 4 ) ; 
  28.   else decr ( mem [ p ] .hh .v.RH ) ; 
  29. } 
  30. void zflushnodelist ( p ) 
  31. halfword p ; 
  32. {/* 30 */ flushnodelist_regmem 
  33.   halfword q  ; 
  34.   while ( p != 0 ) {
  35.       
  36.     q = mem [ p ] .hh .v.RH ; 
  37.     if ( ( p >= himemmin ) ) 
  38.     {
  39.       mem [ p ] .hh .v.RH = avail ; 
  40.       avail = p ; 
  41.     ;
  42. #ifdef STAT
  43.       decr ( dynused ) ; 
  44. #endif /* STAT */
  45.     } 
  46.     else {
  47.     
  48.       switch ( mem [ p ] .hh.b0 ) 
  49.       {case 0 : 
  50.       case 1 : 
  51.       case 13 : 
  52.     {
  53.       flushnodelist ( mem [ p + 5 ] .hh .v.RH ) ; 
  54.       freenode ( p , 7 ) ; 
  55.       goto lab30 ; 
  56.     } 
  57.     break ; 
  58.       case 2 : 
  59.     {
  60.       freenode ( p , 4 ) ; 
  61.       goto lab30 ; 
  62.     } 
  63.     break ; 
  64.       case 3 : 
  65.     {
  66.       flushnodelist ( mem [ p + 4 ] .hh .v.LH ) ; 
  67.       deleteglueref ( mem [ p + 4 ] .hh .v.RH ) ; 
  68.       freenode ( p , 5 ) ; 
  69.       goto lab30 ; 
  70.     } 
  71.     break ; 
  72.       case 8 : 
  73.     {
  74.       switch ( mem [ p ] .hh.b1 ) 
  75.       {case 0 : 
  76.         freenode ( p , 3 ) ; 
  77.         break ; 
  78.       case 1 : 
  79.       case 3 : 
  80.         {
  81.           deletetokenref ( mem [ p + 1 ] .hh .v.RH ) ; 
  82.           freenode ( p , 2 ) ; 
  83.           goto lab30 ; 
  84.         } 
  85.         break ; 
  86.       case 2 : 
  87.       case 4 : 
  88.         freenode ( p , 2 ) ; 
  89.         break ; 
  90.         default: 
  91.         confusion ( 1285 ) ; 
  92.         break ; 
  93.       } 
  94.       goto lab30 ; 
  95.     } 
  96.     break ; 
  97.       case 10 : 
  98.     {
  99.       {
  100.         if ( mem [ mem [ p + 1 ] .hh .v.LH ] .hh .v.RH == 0 ) 
  101.         freenode ( mem [ p + 1 ] .hh .v.LH , 4 ) ; 
  102.         else decr ( mem [ mem [ p + 1 ] .hh .v.LH ] .hh .v.RH ) ; 
  103.       } 
  104.       if ( mem [ p + 1 ] .hh .v.RH != 0 ) 
  105.       flushnodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  106.     } 
  107.     break ; 
  108.       case 11 : 
  109.       case 9 : 
  110.       case 12 : 
  111.     ; 
  112.     break ; 
  113.       case 6 : 
  114.     flushnodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  115.     break ; 
  116.       case 4 : 
  117.     deletetokenref ( mem [ p + 1 ] .cint ) ; 
  118.     break ; 
  119.       case 7 : 
  120.     {
  121.       flushnodelist ( mem [ p + 1 ] .hh .v.LH ) ; 
  122.       flushnodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  123.     } 
  124.     break ; 
  125.       case 5 : 
  126.     flushnodelist ( mem [ p + 1 ] .cint ) ; 
  127.     break ; 
  128.       case 14 : 
  129.     {
  130.       freenode ( p , 3 ) ; 
  131.       goto lab30 ; 
  132.     } 
  133.     break ; 
  134.       case 15 : 
  135.     {
  136.       flushnodelist ( mem [ p + 1 ] .hh .v.LH ) ; 
  137.       flushnodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  138.       flushnodelist ( mem [ p + 2 ] .hh .v.LH ) ; 
  139.       flushnodelist ( mem [ p + 2 ] .hh .v.RH ) ; 
  140.       freenode ( p , 3 ) ; 
  141.       goto lab30 ; 
  142.     } 
  143.     break ; 
  144.       case 16 : 
  145.       case 17 : 
  146.       case 18 : 
  147.       case 19 : 
  148.       case 20 : 
  149.       case 21 : 
  150.       case 22 : 
  151.       case 23 : 
  152.       case 24 : 
  153.       case 27 : 
  154.       case 26 : 
  155.       case 29 : 
  156.       case 28 : 
  157.     {
  158.       if ( mem [ p + 1 ] .hh .v.RH >= 2 ) 
  159.       flushnodelist ( mem [ p + 1 ] .hh .v.LH ) ; 
  160.       if ( mem [ p + 2 ] .hh .v.RH >= 2 ) 
  161.       flushnodelist ( mem [ p + 2 ] .hh .v.LH ) ; 
  162.       if ( mem [ p + 3 ] .hh .v.RH >= 2 ) 
  163.       flushnodelist ( mem [ p + 3 ] .hh .v.LH ) ; 
  164.       if ( mem [ p ] .hh.b0 == 24 ) 
  165.       freenode ( p , 5 ) ; 
  166.       else if ( mem [ p ] .hh.b0 == 28 ) 
  167.       freenode ( p , 5 ) ; 
  168.       else freenode ( p , 4 ) ; 
  169.       goto lab30 ; 
  170.     } 
  171.     break ; 
  172.       case 30 : 
  173.       case 31 : 
  174.     {
  175.       freenode ( p , 4 ) ; 
  176.       goto lab30 ; 
  177.     } 
  178.     break ; 
  179.       case 25 : 
  180.     {
  181.       flushnodelist ( mem [ p + 2 ] .hh .v.LH ) ; 
  182.       flushnodelist ( mem [ p + 3 ] .hh .v.LH ) ; 
  183.       freenode ( p , 6 ) ; 
  184.       goto lab30 ; 
  185.     } 
  186.     break ; 
  187.     default: 
  188.     confusion ( 350 ) ; 
  189.     break ; 
  190.       } 
  191.       freenode ( p , 2 ) ; 
  192.       lab30: ; 
  193.     } 
  194.     p = q ; 
  195.   } 
  196. } 
  197. halfword zcopynodelist ( p ) 
  198. halfword p ; 
  199. {register halfword Result; copynodelist_regmem 
  200.   halfword h  ; 
  201.   halfword q  ; 
  202.   halfword r  ; 
  203.   schar words  ; 
  204.   h = getavail () ; 
  205.   q = h ; 
  206.   while ( p != 0 ) {
  207.       
  208.     words = 1 ; 
  209.     if ( ( p >= himemmin ) ) 
  210.     r = getavail () ; 
  211.     else switch ( mem [ p ] .hh.b0 ) 
  212.     {case 0 : 
  213.     case 1 : 
  214.     case 13 : 
  215.       {
  216.     r = getnode ( 7 ) ; 
  217.     mem [ r + 6 ] = mem [ p + 6 ] ; 
  218.     mem [ r + 5 ] = mem [ p + 5 ] ; 
  219.     mem [ r + 5 ] .hh .v.RH = copynodelist ( mem [ p + 5 ] .hh .v.RH ) ; 
  220.     words = 5 ; 
  221.       } 
  222.       break ; 
  223.     case 2 : 
  224.       {
  225.     r = getnode ( 4 ) ; 
  226.     words = 4 ; 
  227.       } 
  228.       break ; 
  229.     case 3 : 
  230.       {
  231.     r = getnode ( 5 ) ; 
  232.     mem [ r + 4 ] = mem [ p + 4 ] ; 
  233.     incr ( mem [ mem [ p + 4 ] .hh .v.RH ] .hh .v.RH ) ; 
  234.     mem [ r + 4 ] .hh .v.LH = copynodelist ( mem [ p + 4 ] .hh .v.LH ) ; 
  235.     words = 4 ; 
  236.       } 
  237.       break ; 
  238.     case 8 : 
  239.       switch ( mem [ p ] .hh.b1 ) 
  240.       {case 0 : 
  241.     {
  242.       r = getnode ( 3 ) ; 
  243.       words = 3 ; 
  244.     } 
  245.     break ; 
  246.       case 1 : 
  247.       case 3 : 
  248.     {
  249.       r = getnode ( 2 ) ; 
  250.       incr ( mem [ mem [ p + 1 ] .hh .v.RH ] .hh .v.LH ) ; 
  251.       words = 2 ; 
  252.     } 
  253.     break ; 
  254.       case 2 : 
  255.       case 4 : 
  256.     {
  257.       r = getnode ( 2 ) ; 
  258.       words = 2 ; 
  259.     } 
  260.     break ; 
  261.     default: 
  262.     confusion ( 1284 ) ; 
  263.     break ; 
  264.       } 
  265.       break ; 
  266.     case 10 : 
  267.       {
  268.     r = getnode ( 2 ) ; 
  269.     incr ( mem [ mem [ p + 1 ] .hh .v.LH ] .hh .v.RH ) ; 
  270.     mem [ r + 1 ] .hh .v.LH = mem [ p + 1 ] .hh .v.LH ; 
  271.     mem [ r + 1 ] .hh .v.RH = copynodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  272.       } 
  273.       break ; 
  274.     case 11 : 
  275.     case 9 : 
  276.     case 12 : 
  277.       {
  278.     r = getnode ( 2 ) ; 
  279.     words = 2 ; 
  280.       } 
  281.       break ; 
  282.     case 6 : 
  283.       {
  284.     r = getnode ( 2 ) ; 
  285.     mem [ r + 1 ] = mem [ p + 1 ] ; 
  286.     mem [ r + 1 ] .hh .v.RH = copynodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  287.       } 
  288.       break ; 
  289.     case 7 : 
  290.       {
  291.     r = getnode ( 2 ) ; 
  292.     mem [ r + 1 ] .hh .v.LH = copynodelist ( mem [ p + 1 ] .hh .v.LH ) ; 
  293.     mem [ r + 1 ] .hh .v.RH = copynodelist ( mem [ p + 1 ] .hh .v.RH ) ; 
  294.       } 
  295.       break ; 
  296.     case 4 : 
  297.       {
  298.     r = getnode ( 2 ) ; 
  299.     incr ( mem [ mem [ p + 1 ] .cint ] .hh .v.LH ) ; 
  300.     words = 2 ; 
  301.       } 
  302.       break ; 
  303.     case 5 : 
  304.       {
  305.     r = getnode ( 2 ) ; 
  306.     mem [ r + 1 ] .cint = copynodelist ( mem [ p + 1 ] .cint ) ; 
  307.       } 
  308.       break ; 
  309.       default: 
  310.       confusion ( 351 ) ; 
  311.       break ; 
  312.     } 
  313.     while ( words > 0 ) {
  314.     
  315.       decr ( words ) ; 
  316.       mem [ r + words ] = mem [ p + words ] ; 
  317.     } 
  318.     mem [ q ] .hh .v.RH = r ; 
  319.     q = r ; 
  320.     p = mem [ p ] .hh .v.RH ; 
  321.   } 
  322.   mem [ q ] .hh .v.RH = 0 ; 
  323.   q = mem [ h ] .hh .v.RH ; 
  324.   {
  325.     mem [ h ] .hh .v.RH = avail ; 
  326.     avail = h ; 
  327.     ;
  328. #ifdef STAT
  329.     decr ( dynused ) ; 
  330. #endif /* STAT */
  331.   } 
  332.   Result = q ; 
  333.   return(Result) ; 
  334. } 
  335. void zprintmode ( m ) 
  336. integer m ; 
  337. {printmode_regmem 
  338.   if ( m > 0 ) 
  339.   switch ( m / ( 101 ) ) 
  340.   {case 0 : 
  341.     print ( 352 ) ; 
  342.     break ; 
  343.   case 1 : 
  344.     print ( 353 ) ; 
  345.     break ; 
  346.   case 2 : 
  347.     print ( 354 ) ; 
  348.     break ; 
  349.   } 
  350.   else if ( m == 0 ) 
  351.   print ( 355 ) ; 
  352.   else switch ( ( - (integer) m ) / ( 101 ) ) 
  353.   {case 0 : 
  354.     print ( 356 ) ; 
  355.     break ; 
  356.   case 1 : 
  357.     print ( 357 ) ; 
  358.     break ; 
  359.   case 2 : 
  360.     print ( 340 ) ; 
  361.     break ; 
  362.   } 
  363.   print ( 358 ) ; 
  364. } 
  365. void pushnest ( ) 
  366. {pushnest_regmem 
  367.   if ( nestptr > maxneststack ) 
  368.   {
  369.     maxneststack = nestptr ; 
  370.     if ( nestptr == nestsize ) 
  371.     overflow ( 359 , nestsize ) ; 
  372.   } 
  373.   nest [ nestptr ] = curlist ; 
  374.   incr ( nestptr ) ; 
  375.   curlist .headfield = getavail () ; 
  376.   curlist .tailfield = curlist .headfield ; 
  377.   curlist .pgfield = 0 ; 
  378.   curlist .mlfield = line ; 
  379. } 
  380. void popnest ( ) 
  381. {popnest_regmem 
  382.   {
  383.     mem [ curlist .headfield ] .hh .v.RH = avail ; 
  384.     avail = curlist .headfield ; 
  385.     ;
  386. #ifdef STAT
  387.     decr ( dynused ) ; 
  388. #endif /* STAT */
  389.   } 
  390.   decr ( nestptr ) ; 
  391.   curlist = nest [ nestptr ] ; 
  392. } 
  393. void showactivities ( ) 
  394. {showactivities_regmem 
  395.   integer p  ; 
  396.   short m  ; 
  397.   memoryword a  ; 
  398.   halfword q, r  ; 
  399.   integer t  ; 
  400.   nest [ nestptr ] = curlist ; 
  401.   printnl ( 335 ) ; 
  402.   println () ; 
  403.   {register integer for_end; p = nestptr ; for_end = 0 ; if ( p >= for_end) 
  404.   do 
  405.     {
  406.       m = nest [ p ] .modefield ; 
  407.       a = nest [ p ] .auxfield ; 
  408.       printnl ( 360 ) ; 
  409.       printmode ( m ) ; 
  410.       print ( 361 ) ; 
  411.       printint ( abs ( nest [ p ] .mlfield ) ) ; 
  412.       if ( m == 102 ) 
  413.       if ( ( nest [ p ] .lhmfield != 2 ) || ( nest [ p ] .rhmfield != 3 ) ) 
  414.       {
  415.     print ( 362 ) ; 
  416.     printint ( nest [ p ] .lhmfield ) ; 
  417.     printchar ( 44 ) ; 
  418.     printint ( nest [ p ] .rhmfield ) ; 
  419.     printchar ( 41 ) ; 
  420.       } 
  421.       if ( nest [ p ] .mlfield < 0 ) 
  422.       print ( 363 ) ; 
  423.       if ( p == 0 ) 
  424.       {
  425.     if ( memtop - 2 != pagetail ) 
  426.     {
  427.       printnl ( 973 ) ; 
  428.       if ( outputactive ) 
  429.       print ( 974 ) ; 
  430.       showbox ( mem [ memtop - 2 ] .hh .v.RH ) ; 
  431.       if ( pagecontents > 0 ) 
  432.       {
  433.         printnl ( 975 ) ; 
  434.         printtotals () ; 
  435.         printnl ( 976 ) ; 
  436.         printscaled ( pagesofar [ 0 ] ) ; 
  437.         r = mem [ memtop ] .hh .v.RH ; 
  438.         while ( r != memtop ) {
  439.         
  440.           println () ; 
  441.           printesc ( 327 ) ; 
  442.           t = mem [ r ] .hh.b1 ; 
  443.           printint ( t ) ; 
  444.           print ( 977 ) ; 
  445.           t = xovern ( mem [ r + 3 ] .cint , 1000 ) * eqtb [ 6218 + t ] 
  446.           .cint ; 
  447.           printscaled ( t ) ; 
  448.           if ( mem [ r ] .hh.b0 == 1 ) 
  449.           {
  450.         q = memtop - 2 ; 
  451.         t = 0 ; 
  452.         do {
  453.             q = mem [ q ] .hh .v.RH ; 
  454.           if ( ( mem [ q ] .hh.b0 == 3 ) && ( mem [ q ] .hh.b1 == mem 
  455.           [ r ] .hh.b1 ) ) 
  456.           incr ( t ) ; 
  457.         } while ( ! ( q == mem [ r + 1 ] .hh .v.LH ) ) ; 
  458.         print ( 978 ) ; 
  459.         printint ( t ) ; 
  460.         print ( 979 ) ; 
  461.           } 
  462.           r = mem [ r ] .hh .v.RH ; 
  463.         } 
  464.       } 
  465.     } 
  466.     if ( mem [ memtop - 1 ] .hh .v.RH != 0 ) 
  467.     printnl ( 364 ) ; 
  468.       } 
  469.       showbox ( mem [ nest [ p ] .headfield ] .hh .v.RH ) ; 
  470.       switch ( abs ( m ) / ( 101 ) ) 
  471.       {case 0 : 
  472.     {
  473.       printnl ( 365 ) ; 
  474.       if ( a .cint <= -65536000L ) 
  475.       print ( 366 ) ; 
  476.       else printscaled ( a .cint ) ; 
  477.       if ( nest [ p ] .pgfield != 0 ) 
  478.       {
  479.         print ( 367 ) ; 
  480.         printint ( nest [ p ] .pgfield ) ; 
  481.         print ( 368 ) ; 
  482.         if ( nest [ p ] .pgfield != 1 ) 
  483.         printchar ( 115 ) ; 
  484.       } 
  485.     } 
  486.     break ; 
  487.       case 1 : 
  488.     {
  489.       printnl ( 369 ) ; 
  490.       printint ( a .hh .v.LH ) ; 
  491.       if ( m > 0 ) 
  492.       if ( a .hh .v.RH > 0 ) 
  493.       {
  494.         print ( 370 ) ; 
  495.         printint ( a .hh .v.RH ) ; 
  496.       } 
  497.     } 
  498.     break ; 
  499.       case 2 : 
  500.     if ( a .cint != 0 ) 
  501.     {
  502.       print ( 371 ) ; 
  503.       showbox ( a .cint ) ; 
  504.     } 
  505.     break ; 
  506.       } 
  507.     } 
  508.   while ( p-- > for_end ) ; } 
  509. } 
  510. void zprintparam ( n ) 
  511. integer n ; 
  512. {printparam_regmem 
  513.   switch ( n ) 
  514.   {case 0 : 
  515.     printesc ( 416 ) ; 
  516.     break ; 
  517.   case 1 : 
  518.     printesc ( 417 ) ; 
  519.     break ; 
  520.   case 2 : 
  521.     printesc ( 418 ) ; 
  522.     break ; 
  523.   case 3 : 
  524.     printesc ( 419 ) ; 
  525.     break ; 
  526.   case 4 : 
  527.     printesc ( 420 ) ; 
  528.     break ; 
  529.   case 5 : 
  530.     printesc ( 421 ) ; 
  531.     break ; 
  532.   case 6 : 
  533.     printesc ( 422 ) ; 
  534.     break ; 
  535.   case 7 : 
  536.     printesc ( 423 ) ; 
  537.     break ; 
  538.   case 8 : 
  539.     printesc ( 424 ) ; 
  540.     break ; 
  541.   case 9 : 
  542.     printesc ( 425 ) ; 
  543.     break ; 
  544.   case 10 : 
  545.     printesc ( 426 ) ; 
  546.     break ; 
  547.   case 11 : 
  548.     printesc ( 427 ) ; 
  549.     break ; 
  550.   case 12 : 
  551.     printesc ( 428 ) ; 
  552.     break ; 
  553.   case 13 : 
  554.     printesc ( 429 ) ; 
  555.     break ; 
  556.   case 14 : 
  557.     printesc ( 430 ) ; 
  558.     break ; 
  559.   case 15 : 
  560.     printesc ( 431 ) ; 
  561.     break ; 
  562.   case 16 : 
  563.     printesc ( 432 ) ; 
  564.     break ; 
  565.   case 17 : 
  566.     printesc ( 433 ) ; 
  567.     break ; 
  568.   case 18 : 
  569.     printesc ( 434 ) ; 
  570.     break ; 
  571.   case 19 : 
  572.     printesc ( 435 ) ; 
  573.     break ; 
  574.   case 20 : 
  575.     printesc ( 436 ) ; 
  576.     break ; 
  577.   case 21 : 
  578.     printesc ( 437 ) ; 
  579.     break ; 
  580.   case 22 : 
  581.     printesc ( 438 ) ; 
  582.     break ; 
  583.   case 23 : 
  584.     printesc ( 439 ) ; 
  585.     break ; 
  586.   case 24 : 
  587.     printesc ( 440 ) ; 
  588.     break ; 
  589.   case 25 : 
  590.     printesc ( 441 ) ; 
  591.     break ; 
  592.   case 26 : 
  593.     printesc ( 442 ) ; 
  594.     break ; 
  595.   case 27 : 
  596.     printesc ( 443 ) ; 
  597.     break ; 
  598.   case 28 : 
  599.     printesc ( 444 ) ; 
  600.     break ; 
  601.   case 29 : 
  602.     printesc ( 445 ) ; 
  603.     break ; 
  604.   case 30 : 
  605.     printesc ( 446 ) ; 
  606.     break ; 
  607.   case 31 : 
  608.     printesc ( 447 ) ; 
  609.     break ; 
  610.   case 32 : 
  611.     printesc ( 448 ) ; 
  612.     break ; 
  613.   case 33 : 
  614.     printesc ( 449 ) ; 
  615.     break ; 
  616.   case 34 : 
  617.     printesc ( 450 ) ; 
  618.     break ; 
  619.   case 35 : 
  620.     printesc ( 451 ) ; 
  621.     break ; 
  622.   case 36 : 
  623.     printesc ( 452 ) ; 
  624.     break ; 
  625.   case 37 : 
  626.     printesc ( 453 ) ; 
  627.     break ; 
  628.   case 38 : 
  629.     printesc ( 454 ) ; 
  630.     break ; 
  631.   case 39 : 
  632.     printesc ( 455 ) ; 
  633.     break ; 
  634.   case 40 : 
  635.     printesc ( 456 ) ; 
  636.     break ; 
  637.   case 41 : 
  638.     printesc ( 457 ) ; 
  639.     break ; 
  640.   case 42 : 
  641.     printesc ( 458 ) ; 
  642.     break ; 
  643.   case 43 : 
  644.     printesc ( 459 ) ; 
  645.     break ; 
  646.   case 44 : 
  647.     printesc ( 460 ) ; 
  648.     break ; 
  649.   case 45 : 
  650.     printesc ( 461 ) ; 
  651.     break ; 
  652.   case 46 : 
  653.     printesc ( 462 ) ; 
  654.     break ; 
  655.   case 47 : 
  656.     printesc ( 463 ) ; 
  657.     break ; 
  658.   case 48 : 
  659.     printesc ( 464 ) ; 
  660.     break ; 
  661.   case 49 : 
  662.     printesc ( 465 ) ; 
  663.     break ; 
  664.   case 50 : 
  665.     printesc ( 466 ) ; 
  666.     break ; 
  667.   case 51 : 
  668.     printesc ( 467 ) ; 
  669.     break ; 
  670.   case 52 : 
  671.     printesc ( 468 ) ; 
  672.     break ; 
  673.   case 53 : 
  674.     printesc ( 469 ) ; 
  675.     break ; 
  676.   case 54 : 
  677.     printesc ( 470 ) ; 
  678.     break ; 
  679.     default: 
  680.     print ( 471 ) ; 
  681.     break ; 
  682.   } 
  683. } 
  684. void begindiagnostic ( ) 
  685. {begindiagnostic_regmem 
  686.   oldsetting = selector ; 
  687.   if ( ( eqtb [ 6192 ] .cint <= 0 ) && ( selector == 19 ) ) 
  688.   {
  689.     decr ( selector ) ; 
  690.     if ( history == 0 ) 
  691.     history = 1 ; 
  692.   } 
  693. } 
  694. void zenddiagnostic ( blankline ) 
  695. boolean blankline ; 
  696. {enddiagnostic_regmem 
  697.   printnl ( 335 ) ; 
  698.   if ( blankline ) 
  699.   println () ; 
  700.   selector = oldsetting ; 
  701. } 
  702. void zprintlengthparam ( n ) 
  703. integer n ; 
  704. {printlengthparam_regmem 
  705.   switch ( n ) 
  706.   {case 0 : 
  707.     printesc ( 474 ) ; 
  708.     break ; 
  709.   case 1 : 
  710.     printesc ( 475 ) ; 
  711.     break ; 
  712.   case 2 : 
  713.     printesc ( 476 ) ; 
  714.     break ; 
  715.   case 3 : 
  716.     printesc ( 477 ) ; 
  717.     break ; 
  718.   case 4 : 
  719.     printesc ( 478 ) ; 
  720.     break ; 
  721.   case 5 : 
  722.     printesc ( 479 ) ; 
  723.     break ; 
  724.   case 6 : 
  725.     printesc ( 480 ) ; 
  726.     break ; 
  727.   case 7 : 
  728.     printesc ( 481 ) ; 
  729.     break ; 
  730.   case 8 : 
  731.     printesc ( 482 ) ; 
  732.     break ; 
  733.   case 9 : 
  734.     printesc ( 483 ) ; 
  735.     break ; 
  736.   case 10 : 
  737.     printesc ( 484 ) ; 
  738.     break ; 
  739.   case 11 : 
  740.     printesc ( 485 ) ; 
  741.     break ; 
  742.   case 12 : 
  743.     printesc ( 486 ) ; 
  744.     break ; 
  745.   case 13 : 
  746.     printesc ( 487 ) ; 
  747.     break ; 
  748.   case 14 : 
  749.     printesc ( 488 ) ; 
  750.     break ; 
  751.   case 15 : 
  752.     printesc ( 489 ) ; 
  753.     break ; 
  754.   case 16 : 
  755.     printesc ( 490 ) ; 
  756.     break ; 
  757.   case 17 : 
  758.     printesc ( 491 ) ; 
  759.     break ; 
  760.   case 18 : 
  761.     printesc ( 492 ) ; 
  762.     break ; 
  763.   case 19 : 
  764.     printesc ( 493 ) ; 
  765.     break ; 
  766.   case 20 : 
  767.     printesc ( 494 ) ; 
  768.     break ; 
  769.     default: 
  770.     print ( 495 ) ; 
  771.     break ; 
  772.   } 
  773. } 
  774. void zprintcmdchr ( cmd , chrcode ) 
  775. quarterword cmd ; 
  776. halfword chrcode ; 
  777. {printcmdchr_regmem 
  778.   switch ( cmd ) 
  779.   {case 1 : 
  780.     {
  781.       print ( 553 ) ; 
  782.       print ( chrcode ) ; 
  783.     } 
  784.     break ; 
  785.   case 2 : 
  786.     {
  787.       print ( 554 ) ; 
  788.       print ( chrcode ) ; 
  789.     } 
  790.     break ; 
  791.   case 3 : 
  792.     {
  793.       print ( 555 ) ; 
  794.       print ( chrcode ) ; 
  795.     } 
  796.     break ; 
  797.   case 6 : 
  798.     {
  799.       print ( 556 ) ; 
  800.       print ( chrcode ) ; 
  801.     } 
  802.     break ; 
  803.   case 7 : 
  804.     {
  805.       print ( 557 ) ; 
  806.       print ( chrcode ) ; 
  807.     } 
  808.     break ; 
  809.   case 8 : 
  810.     {
  811.       print ( 558 ) ; 
  812.       print ( chrcode ) ; 
  813.     } 
  814.     break ; 
  815.   case 9 : 
  816.     print ( 559 ) ; 
  817.     break ; 
  818.   case 10 : 
  819.     {
  820.       print ( 560 ) ; 
  821.       print ( chrcode ) ; 
  822.     } 
  823.     break ; 
  824.   case 11 : 
  825.     {
  826.       print ( 561 ) ; 
  827.       print ( chrcode ) ; 
  828.     } 
  829.     break ; 
  830.   case 12 : 
  831.     {
  832.       print ( 562 ) ; 
  833.       print ( chrcode ) ; 
  834.     } 
  835.     break ; 
  836.   case 75 : 
  837.   case 76 : 
  838.     if ( chrcode < 3800 ) 
  839.     printskipparam ( chrcode - 3782 ) ; 
  840.     else if ( chrcode < 4056 ) 
  841.     {
  842.       printesc ( 391 ) ; 
  843.       printint ( chrcode - 3800 ) ; 
  844.     } 
  845.     else {
  846.     
  847.       printesc ( 392 ) ; 
  848.       printint ( chrcode - 4056 ) ; 
  849.     } 
  850.     break ; 
  851.   case 72 : 
  852.     if ( chrcode >= 4322 ) 
  853.     {
  854.       printesc ( 403 ) ; 
  855.       printint ( chrcode - 4322 ) ; 
  856.     } 
  857.     else switch ( chrcode ) 
  858.     {case 4313 : 
  859.       printesc ( 394 ) ; 
  860.       break ; 
  861.     case 4314 : 
  862.       printesc ( 395 ) ; 
  863.       break ; 
  864.     case 4315 : 
  865.       printesc ( 396 ) ; 
  866.       break ; 
  867.     case 4316 : 
  868.       printesc ( 397 ) ; 
  869.       break ; 
  870.     case 4317 : 
  871.       printesc ( 398 ) ; 
  872.       break ; 
  873.     case 4318 : 
  874.       printesc ( 399 ) ; 
  875.       break ; 
  876.     case 4319 : 
  877.       printesc ( 400 ) ; 
  878.       break ; 
  879.     case 4320 : 
  880.       printesc ( 401 ) ; 
  881.       break ; 
  882.       default: 
  883.       printesc ( 402 ) ; 
  884.       break ; 
  885.     } 
  886.     break ; 
  887.   case 73 : 
  888.     if ( chrcode < 6218 ) 
  889.     printparam ( chrcode - 6163 ) ; 
  890.     else {
  891.     
  892.       printesc ( 472 ) ; 
  893.       printint ( chrcode - 6218 ) ; 
  894.     } 
  895.     break ; 
  896.   case 74 : 
  897.     if ( chrcode < 6751 ) 
  898.     printlengthparam ( chrcode - 6730 ) ; 
  899.     else {
  900.     
  901.       printesc ( 496 ) ; 
  902.       printint ( chrcode - 6751 ) ; 
  903.     } 
  904.     break ; 
  905.   case 45 : 
  906.     printesc ( 504 ) ; 
  907.     break ; 
  908.   case 90 : 
  909.     printesc ( 505 ) ; 
  910.     break ; 
  911.   case 40 : 
  912.     printesc ( 506 ) ; 
  913.     break ; 
  914.   case 41 : 
  915.     printesc ( 507 ) ; 
  916.     break ; 
  917.   case 77 : 
  918.     printesc ( 515 ) ; 
  919.     break ; 
  920.   case 61 : 
  921.     printesc ( 508 ) ; 
  922.     break ; 
  923.   case 42 : 
  924.     printesc ( 527 ) ; 
  925.     break ; 
  926.   case 16 : 
  927.     printesc ( 509 ) ; 
  928.     break ; 
  929.   case 107 : 
  930.     printesc ( 500 ) ; 
  931.     break ; 
  932.   case 88 : 
  933.     printesc ( 514 ) ; 
  934.     break ; 
  935.   case 15 : 
  936.     printesc ( 510 ) ; 
  937.     break ; 
  938.   case 92 : 
  939.     printesc ( 511 ) ; 
  940.     break ; 
  941.   case 67 : 
  942.     printesc ( 501 ) ; 
  943.     break ; 
  944.   case 62 : 
  945.     printesc ( 512 ) ; 
  946.     break ; 
  947.   case 64 : 
  948.     printesc ( 32 ) ; 
  949.     break ; 
  950.   case 102 : 
  951.     printesc ( 513 ) ; 
  952.     break ; 
  953.   case 32 : 
  954.     printesc ( 516 ) ; 
  955.     break ; 
  956.   case 36 : 
  957.     printesc ( 517 ) ; 
  958.     break ; 
  959.   case 39 : 
  960.     printesc ( 518 ) ; 
  961.     break ; 
  962.   case 37 : 
  963.     printesc ( 327 ) ; 
  964.     break ; 
  965.   case 44 : 
  966.     printesc ( 47 ) ; 
  967.     break ; 
  968.   case 18 : 
  969.     printesc ( 348 ) ; 
  970.     break ; 
  971.   case 46 : 
  972.     printesc ( 519 ) ; 
  973.     break ; 
  974.   case 17 : 
  975.     printesc ( 520 ) ; 
  976.     break ; 
  977.   case 54 : 
  978.     printesc ( 521 ) ; 
  979.     break ; 
  980.   case 91 : 
  981.     printesc ( 522 ) ; 
  982.     break ; 
  983.   case 34 : 
  984.     printesc ( 523 ) ; 
  985.     break ; 
  986.   case 65 : 
  987.     printesc ( 524 ) ; 
  988.     break ; 
  989.   case 103 : 
  990.     printesc ( 525 ) ; 
  991.     break ; 
  992.   case 55 : 
  993.     printesc ( 332 ) ; 
  994.     break ; 
  995.   case 63 : 
  996.     printesc ( 526 ) ; 
  997.     break ; 
  998.   case 66 : 
  999.     printesc ( 529 ) ; 
  1000.     break ; 
  1001.   case 96 : 
  1002.     printesc ( 530 ) ; 
  1003.     break ; 
  1004.   case 0 : 
  1005.     printesc ( 531 ) ; 
  1006.     break ; 
  1007.   case 98 : 
  1008.     printesc ( 532 ) ; 
  1009.     break ; 
  1010.   case 80 : 
  1011.     printesc ( 528 ) ; 
  1012.     break ; 
  1013.   case 84 : 
  1014.     printesc ( 404 ) ; 
  1015.     break ; 
  1016.   case 109 : 
  1017.     printesc ( 533 ) ; 
  1018.     break ; 
  1019.   case 71 : 
  1020.     printesc ( 403 ) ; 
  1021.     break ; 
  1022.   case 38 : 
  1023.     printesc ( 349 ) ; 
  1024.     break ; 
  1025.   case 33 : 
  1026.     printesc ( 534 ) ; 
  1027.     break ; 
  1028.   case 56 : 
  1029.     printesc ( 535 ) ; 
  1030.     break ; 
  1031.   case 35 : 
  1032.     printesc ( 536 ) ; 
  1033.     break ; 
  1034.   case 13 : 
  1035.     printesc ( 593 ) ; 
  1036.     break ; 
  1037.   case 104 : 
  1038.     if ( chrcode == 0 ) 
  1039.     printesc ( 625 ) ; 
  1040.     else printesc ( 626 ) ; 
  1041.     break ; 
  1042.   case 110 : 
  1043.     switch ( chrcode ) 
  1044.     {case 1 : 
  1045.       printesc ( 628 ) ; 
  1046.       break ; 
  1047.     case 2 : 
  1048.       printesc ( 629 ) ; 
  1049.       break ; 
  1050.     case 3 : 
  1051.       printesc ( 630 ) ; 
  1052.       break ; 
  1053.     case 4 : 
  1054.       printesc ( 631 ) ; 
  1055.       break ; 
  1056.       default: 
  1057.       printesc ( 627 ) ; 
  1058.       break ; 
  1059.     } 
  1060.     break ; 
  1061.   case 89 : 
  1062.     if ( chrcode == 0 ) 
  1063.     printesc ( 472 ) ; 
  1064.     else if ( chrcode == 1 ) 
  1065.     printesc ( 496 ) ; 
  1066.     else if ( chrcode == 2 ) 
  1067.     printesc ( 391 ) ; 
  1068.     else printesc ( 392 ) ; 
  1069.     break ; 
  1070.   case 79 : 
  1071.     if ( chrcode == 1 ) 
  1072.     printesc ( 665 ) ; 
  1073.     else printesc ( 664 ) ; 
  1074.     break ; 
  1075.   case 82 : 
  1076.     if ( chrcode == 0 ) 
  1077.     printesc ( 666 ) ; 
  1078.     else printesc ( 667 ) ; 
  1079.     break ; 
  1080.   case 83 : 
  1081.     if ( chrcode == 1 ) 
  1082.     printesc ( 668 ) ; 
  1083.     else if ( chrcode == 3 ) 
  1084.     printesc ( 669 ) ; 
  1085.     else printesc ( 670 ) ; 
  1086.     break ; 
  1087.   case 70 : 
  1088.     switch ( chrcode ) 
  1089.     {case 0 : 
  1090.       printesc ( 671 ) ; 
  1091.       break ; 
  1092.     case 1 : 
  1093.       printesc ( 672 ) ; 
  1094.       break ; 
  1095.     case 2 : 
  1096.       printesc ( 673 ) ; 
  1097.       break ; 
  1098.     case 3 : 
  1099.       printesc ( 674 ) ; 
  1100.       break ; 
  1101.       default: 
  1102.       printesc ( 675 ) ; 
  1103.       break ; 
  1104.     } 
  1105.     break ; 
  1106.   case 108 : 
  1107.     switch ( chrcode ) 
  1108.     {case 0 : 
  1109.       printesc ( 731 ) ; 
  1110.       break ; 
  1111.     case 1 : 
  1112.       printesc ( 732 ) ; 
  1113.       break ; 
  1114.     case 2 : 
  1115.       printesc ( 733 ) ; 
  1116.       break ; 
  1117.     case 3 : 
  1118.       printesc ( 734 ) ; 
  1119.       break ; 
  1120.     case 4 : 
  1121.       printesc ( 735 ) ; 
  1122.       break ; 
  1123.       default: 
  1124.       printesc ( 736 ) ; 
  1125.       break ; 
  1126.     } 
  1127.     break ; 
  1128.   case 105 : 
  1129.     switch ( chrcode ) 
  1130.     {case 1 : 
  1131.       printesc ( 753 ) ; 
  1132.       break ; 
  1133.     case 2 : 
  1134.       printesc ( 754 ) ; 
  1135.       break ; 
  1136.     case 3 : 
  1137.       printesc ( 755 ) ; 
  1138.       break ; 
  1139.     case 4 : 
  1140.       printesc ( 756 ) ; 
  1141.       break ; 
  1142.     case 5 : 
  1143.       printesc ( 757 ) ; 
  1144.       break ; 
  1145.     case 6 : 
  1146.       printesc ( 758 ) ; 
  1147.       break ; 
  1148.     case 7 : 
  1149.       printesc ( 759 ) ; 
  1150.       break ; 
  1151.     case 8 : 
  1152.       printesc ( 760 ) ; 
  1153.       break ; 
  1154.     case 9 : 
  1155.       printesc ( 761 ) ; 
  1156.       break ; 
  1157.     case 10 : 
  1158.       printesc ( 762 ) ; 
  1159.       break ; 
  1160.     case 11 : 
  1161.       printesc ( 763 ) ; 
  1162.       break ; 
  1163.     case 12 : 
  1164.       printesc ( 764 ) ; 
  1165.       break ; 
  1166.     case 13 : 
  1167.       printesc ( 765 ) ; 
  1168.       break ; 
  1169.     case 14 : 
  1170.       printesc ( 766 ) ; 
  1171.       break ; 
  1172.     case 15 : 
  1173.       printesc ( 767 ) ; 
  1174.       break ; 
  1175.     case 16 : 
  1176.       printesc ( 768 ) ; 
  1177.       break ; 
  1178.       default: 
  1179.       printesc ( 752 ) ; 
  1180.       break ; 
  1181.     } 
  1182.     break ; 
  1183.   case 106 : 
  1184.     if ( chrcode == 2 ) 
  1185.     printesc ( 769 ) ; 
  1186.     else if ( chrcode == 4 ) 
  1187.     printesc ( 770 ) ; 
  1188.     else printesc ( 771 ) ; 
  1189.     break ; 
  1190.   case 4 : 
  1191.     if ( chrcode == 256 ) 
  1192.     printesc ( 891 ) ; 
  1193.     else {
  1194.     
  1195.       print ( 895 ) ; 
  1196.       print ( chrcode ) ; 
  1197.     } 
  1198.     break ; 
  1199.   case 5 : 
  1200.     if ( chrcode == 257 ) 
  1201.     printesc ( 892 ) ; 
  1202.     else printesc ( 893 ) ; 
  1203.     break ; 
  1204.   case 81 : 
  1205.     switch ( chrcode ) 
  1206.     {case 0 : 
  1207.       printesc ( 963 ) ; 
  1208.       break ; 
  1209.     case 1 : 
  1210.       printesc ( 964 ) ; 
  1211.       break ; 
  1212.     case 2 : 
  1213.       printesc ( 965 ) ; 
  1214.       break ; 
  1215.     case 3 : 
  1216.       printesc ( 966 ) ; 
  1217.       break ; 
  1218.     case 4 : 
  1219.       printesc ( 967 ) ; 
  1220.       break ; 
  1221.     case 5 : 
  1222.       printesc ( 968 ) ; 
  1223.       break ; 
  1224.     case 6 : 
  1225.       printesc ( 969 ) ; 
  1226.       break ; 
  1227.       default: 
  1228.       printesc ( 970 ) ; 
  1229.       break ; 
  1230.     } 
  1231.     break ; 
  1232.   case 14 : 
  1233.     if ( chrcode == 1 ) 
  1234.     printesc ( 1019 ) ; 
  1235.     else printesc ( 1018 ) ; 
  1236.     break ; 
  1237.   case 26 : 
  1238.     switch ( chrcode ) 
  1239.     {case 4 : 
  1240.       printesc ( 1020 ) ; 
  1241.       break ; 
  1242.     case 0 : 
  1243.       printesc ( 1021 ) ; 
  1244.       break ; 
  1245.     case 1 : 
  1246.       printesc ( 1022 ) ; 
  1247.       break ; 
  1248.     case 2 : 
  1249.       printesc ( 1023 ) ; 
  1250.       break ; 
  1251.       default: 
  1252.       printesc ( 1024 ) ; 
  1253.       break ; 
  1254.     } 
  1255.     break ; 
  1256.   case 27 : 
  1257.     switch ( chrcode ) 
  1258.     {case 4 : 
  1259.       printesc ( 1025 ) ; 
  1260.       break ; 
  1261.     case 0 : 
  1262.       printesc ( 1026 ) ; 
  1263.       break ; 
  1264.     case 1 : 
  1265.       printesc ( 1027 ) ; 
  1266.       break ; 
  1267.     case 2 : 
  1268.       printesc ( 1028 ) ; 
  1269.       break ; 
  1270.       default: 
  1271.       printesc ( 1029 ) ; 
  1272.       break ; 
  1273.     } 
  1274.     break ; 
  1275.   case 28 : 
  1276.     printesc ( 333 ) ; 
  1277.     break ; 
  1278.   case 29 : 
  1279.     printesc ( 337 ) ; 
  1280.     break ; 
  1281.   case 30 : 
  1282.     printesc ( 339 ) ; 
  1283.     break ; 
  1284.   case 21 : 
  1285.     if ( chrcode == 1 ) 
  1286.     printesc ( 1047 ) ; 
  1287.     else printesc ( 1048 ) ; 
  1288.     break ; 
  1289.   case 22 : 
  1290.     if ( chrcode == 1 ) 
  1291.     printesc ( 1049 ) ; 
  1292.     else printesc ( 1050 ) ; 
  1293.     break ; 
  1294.   case 20 : 
  1295.     switch ( chrcode ) 
  1296.     {case 0 : 
  1297.       printesc ( 405 ) ; 
  1298.       break ; 
  1299.     case 1 : 
  1300.       printesc ( 1051 ) ; 
  1301.       break ; 
  1302.     case 2 : 
  1303.       printesc ( 1052 ) ; 
  1304.       break ; 
  1305.     case 3 : 
  1306.       printesc ( 958 ) ; 
  1307.       break ; 
  1308.     case 4 : 
  1309.       printesc ( 1053 ) ; 
  1310.       break ; 
  1311.     case 5 : 
  1312.       printesc ( 960 ) ; 
  1313.       break ; 
  1314.       default: 
  1315.       printesc ( 1054 ) ; 
  1316.       break ; 
  1317.     } 
  1318.     break ; 
  1319.   case 31 : 
  1320.     if ( chrcode == 100 ) 
  1321.     printesc ( 1056 ) ; 
  1322.     else if ( chrcode == 101 ) 
  1323.     printesc ( 1057 ) ; 
  1324.     else if ( chrcode == 102 ) 
  1325.     printesc ( 1058 ) ; 
  1326.     else printesc ( 1055 ) ; 
  1327.     break ; 
  1328.   case 43 : 
  1329.     if ( chrcode == 0 ) 
  1330.     printesc ( 1074 ) ; 
  1331.     else printesc ( 1073 ) ; 
  1332.     break ; 
  1333.   case 25 : 
  1334.     if ( chrcode == 10 ) 
  1335.     printesc ( 1085 ) ; 
  1336.     else if ( chrcode == 11 ) 
  1337.     printesc ( 1084 ) ; 
  1338.     else printesc ( 1083 ) ; 
  1339.     break ; 
  1340.   case 23 : 
  1341.     if ( chrcode == 1 ) 
  1342.     printesc ( 1087 ) ; 
  1343.     else printesc ( 1086 ) ; 
  1344.     break ; 
  1345.   case 24 : 
  1346.     if ( chrcode == 1 ) 
  1347.     printesc ( 1089 ) ; 
  1348.     else printesc ( 1088 ) ; 
  1349.     break ; 
  1350.   case 47 : 
  1351.     if ( chrcode == 1 ) 
  1352.     printesc ( 45 ) ; 
  1353.     else printesc ( 346 ) ; 
  1354.     break ; 
  1355.   case 48 : 
  1356.     if ( chrcode == 1 ) 
  1357.     printesc ( 1121 ) ; 
  1358.     else printesc ( 1120 ) ; 
  1359.     break ; 
  1360.   case 50 : 
  1361.     switch ( chrcode ) 
  1362.     {case 16 : 
  1363.       printesc ( 859 ) ; 
  1364.       break ; 
  1365.     case 17 : 
  1366.       printesc ( 860 ) ; 
  1367.       break ; 
  1368.     case 18 : 
  1369.       printesc ( 861 ) ; 
  1370.       break ; 
  1371.     case 19 : 
  1372.       printesc ( 862 ) ; 
  1373.       break ; 
  1374.     case 20 : 
  1375.       printesc ( 863 ) ; 
  1376.       break ; 
  1377.     case 21 : 
  1378.       printesc ( 864 ) ; 
  1379.       break ; 
  1380.     case 22 : 
  1381.       printesc ( 865 ) ; 
  1382.       break ; 
  1383.     case 23 : 
  1384.       printesc ( 866 ) ; 
  1385.       break ; 
  1386.     case 26 : 
  1387.       printesc ( 868 ) ; 
  1388.       break ; 
  1389.       default: 
  1390.       printesc ( 867 ) ; 
  1391.       break ; 
  1392.     } 
  1393.     break ; 
  1394.   case 51 : 
  1395.     if ( chrcode == 1 ) 
  1396.     printesc ( 871 ) ; 
  1397.     else if ( chrcode == 2 ) 
  1398.     printesc ( 872 ) ; 
  1399.     else printesc ( 1122 ) ; 
  1400.     break ; 
  1401.   case 53 : 
  1402.     printstyle ( chrcode ) ; 
  1403.     break ; 
  1404.   case 52 : 
  1405.     switch ( chrcode ) 
  1406.     {case 1 : 
  1407.       printesc ( 1141 ) ; 
  1408.       break ; 
  1409.     case 2 : 
  1410.       printesc ( 1142 ) ; 
  1411.       break ; 
  1412.     case 3 : 
  1413.       printesc ( 1143 ) ; 
  1414.       break ; 
  1415.     case 4 : 
  1416.       printesc ( 1144 ) ; 
  1417.       break ; 
  1418.     case 5 : 
  1419.       printesc ( 1145 ) ; 
  1420.       break ; 
  1421.       default: 
  1422.       printesc ( 1140 ) ; 
  1423.       break ; 
  1424.     } 
  1425.     break ; 
  1426.   case 49 : 
  1427.     if ( chrcode == 30 ) 
  1428.     printesc ( 869 ) ; 
  1429.     else printesc ( 870 ) ; 
  1430.     break ; 
  1431.   case 93 : 
  1432.     if ( chrcode == 1 ) 
  1433.     printesc ( 1164 ) ; 
  1434.     else if ( chrcode == 2 ) 
  1435.     printesc ( 1165 ) ; 
  1436.     else printesc ( 1166 ) ; 
  1437.     break ; 
  1438.   case 97 : 
  1439.     if ( chrcode == 0 ) 
  1440.     printesc ( 1167 ) ; 
  1441.     else if ( chrcode == 1 ) 
  1442.     printesc ( 1168 ) ; 
  1443.     else if ( chrcode == 2 ) 
  1444.     printesc ( 1169 ) ; 
  1445.     else printesc ( 1170 ) ; 
  1446.     break ; 
  1447.   case 94 : 
  1448.     if ( chrcode != 0 ) 
  1449.     printesc ( 1185 ) ; 
  1450.     else printesc ( 1184 ) ; 
  1451.     break ; 
  1452.   case 95 : 
  1453.     switch ( chrcode ) 
  1454.     {case 0 : 
  1455.       printesc ( 1186 ) ; 
  1456.       break ; 
  1457.     case 1 : 
  1458.       printesc ( 1187 ) ; 
  1459.       break ; 
  1460.     case 2 : 
  1461.       printesc ( 1188 ) ; 
  1462.       break ; 
  1463.     case 3 : 
  1464.       printesc ( 1189 ) ; 
  1465.       break ; 
  1466.     case 4 : 
  1467.       printesc ( 1190 ) ; 
  1468.       break ; 
  1469.     case 5 : 
  1470.       printesc ( 1191 ) ; 
  1471.       break ; 
  1472.       default: 
  1473.       printesc ( 1192 ) ; 
  1474.       break ; 
  1475.     } 
  1476.     break ; 
  1477.   case 68 : 
  1478.     {
  1479.       printesc ( 509 ) ; 
  1480.       printhex ( chrcode ) ; 
  1481.     } 
  1482.     break ; 
  1483.   case 69 : 
  1484.     {
  1485.       printesc ( 520 ) ; 
  1486.       printhex ( chrcode ) ; 
  1487.     } 
  1488.     break ; 
  1489.   case 85 : 
  1490.     if ( chrcode == 4883 ) 
  1491.     printesc ( 411 ) ; 
  1492.     else if ( chrcode == 5907 ) 
  1493.     printesc ( 415 ) ; 
  1494.     else if ( chrcode == 5139 ) 
  1495.     printesc ( 412 ) ; 
  1496.     else if ( chrcode == 5395 ) 
  1497.     printesc ( 413 ) ; 
  1498.     else if ( chrcode == 5651 ) 
  1499.     printesc ( 414 ) ; 
  1500.     else printesc ( 473 ) ; 
  1501.     break ; 
  1502.   case 86 : 
  1503.     printsize ( chrcode - 4835 ) ; 
  1504.     break ; 
  1505.   case 99 : 
  1506.     if ( chrcode == 1 ) 
  1507.     printesc ( 946 ) ; 
  1508.     else printesc ( 934 ) ; 
  1509.     break ; 
  1510.   case 78 : 
  1511.     if ( chrcode == 0 ) 
  1512.     printesc ( 1208 ) ; 
  1513.     else printesc ( 1209 ) ; 
  1514.     break ; 
  1515.   case 87 : 
  1516.     {
  1517.       print ( 1217 ) ; 
  1518.       print ( fontname [ chrcode ] ) ; 
  1519.       if ( fontsize [ chrcode ] != fontdsize [ chrcode ] ) 
  1520.       {
  1521.     print ( 737 ) ; 
  1522.     printscaled ( fontsize [ chrcode ] ) ; 
  1523.     print ( 393 ) ; 
  1524.       } 
  1525.     } 
  1526.     break ; 
  1527.   case 100 : 
  1528.     switch ( chrcode ) 
  1529.     {case 0 : 
  1530.       printesc ( 272 ) ; 
  1531.       break ; 
  1532.     case 1 : 
  1533.       printesc ( 273 ) ; 
  1534.       break ; 
  1535.     case 2 : 
  1536.       printesc ( 274 ) ; 
  1537.       break ; 
  1538.       default: 
  1539.       printesc ( 1218 ) ; 
  1540.       break ; 
  1541.     } 
  1542.     break ; 
  1543.   case 60 : 
  1544.     if ( chrcode == 0 ) 
  1545.     printesc ( 1220 ) ; 
  1546.     else printesc ( 1219 ) ; 
  1547.     break ; 
  1548.   case 58 : 
  1549.     if ( chrcode == 0 ) 
  1550.     printesc ( 1221 ) ; 
  1551.     else printesc ( 1222 ) ; 
  1552.     break ; 
  1553.   case 57 : 
  1554.     if ( chrcode == 5139 ) 
  1555.     printesc ( 1228 ) ; 
  1556.     else printesc ( 1229 ) ; 
  1557.     break ; 
  1558.   case 19 : 
  1559.     switch ( chrcode ) 
  1560.     {case 1 : 
  1561.       printesc ( 1231 ) ; 
  1562.       break ; 
  1563.     case 2 : 
  1564.       printesc ( 1232 ) ; 
  1565.       break ; 
  1566.     case 3 : 
  1567.       printesc ( 1233 ) ; 
  1568.       break ; 
  1569.       default: 
  1570.       printesc ( 1230 ) ; 
  1571.       break ; 
  1572.     } 
  1573.     break ; 
  1574.   case 101 : 
  1575.     print ( 1240 ) ; 
  1576.     break ; 
  1577.   case 111 : 
  1578.     print ( 1241 ) ; 
  1579.     break ; 
  1580.   case 112 : 
  1581.     printesc ( 1242 ) ; 
  1582.     break ; 
  1583.   case 113 : 
  1584.     printesc ( 1243 ) ; 
  1585.     break ; 
  1586.   case 114 : 
  1587.     {
  1588.       printesc ( 1164 ) ; 
  1589.       printesc ( 1243 ) ; 
  1590.     } 
  1591.     break ; 
  1592.   case 115 : 
  1593.     printesc ( 1244 ) ; 
  1594.     break ; 
  1595.   case 59 : 
  1596.     switch ( chrcode ) 
  1597.     {case 0 : 
  1598.       printesc ( 1276 ) ; 
  1599.       break ; 
  1600.     case 1 : 
  1601.       printesc ( 590 ) ; 
  1602.       break ; 
  1603.     case 2 : 
  1604.       printesc ( 1277 ) ; 
  1605.       break ; 
  1606.     case 3 : 
  1607.       printesc ( 1278 ) ; 
  1608.       break ; 
  1609.     case 4 : 
  1610.       printesc ( 1279 ) ; 
  1611.       break ; 
  1612.     case 5 : 
  1613.       printesc ( 1280 ) ; 
  1614.       break ; 
  1615.       default: 
  1616.       print ( 1281 ) ; 
  1617.       break ; 
  1618.     } 
  1619.     break ; 
  1620.     default: 
  1621.     print ( 563 ) ; 
  1622.     break ; 
  1623.   } 
  1624. } 
  1625.